home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS077A.dsk / AUTO NUMBER II.bas < prev    next >
BASIC Source File  |  2012-02-16  |  3KB  |  87 lines
  1. 0  TEXT : HOME : REM  CREDITS
  2. 1  REM   ***********************
  3. 2  REM   *                     *
  4. 3  REM   *     AUTO-NUMBER     *
  5. 4  REM   *                     *
  6. 5  REM   *         BY          *
  7. 6  REM   *                     *
  8. 7  REM   *    GERALD CAHILL    *
  9. 8  REM   * 2550-90 EAST AVE I  *
  10. 9  REM   * LANCASTER, CA 93634 *
  11. 10  REM  *                     *
  12. 11  REM  *        FROM         *
  13. 12  REM  *                     *
  14. 13  REM  *     CALL-APPLE      *
  15. 14  REM  *    OCTOBER, 1979    *
  16. 15  REM  *     PAGES 5 - 8     *
  17. 16  REM  *                     *
  18. 17  REM  *     MODIFIED BY     *
  19. 18  REM  *                     *
  20. 19  REM  *   DAVID M. MURDOCH  *
  21. 20  REM  * 91 WEST VINE STREET *
  22. 21  REM  *  SHIREMANSTOWN, PA  *
  23. 22  REM  *        17011        *
  24. 23  REM  *                     *
  25. 24  REM  ***********************
  26. 25  REM 
  27. 26  HOME : VTAB 12: HTAB 15
  28. 27  FLASH : PRINT "AUTO-NUMBER": NORMAL 
  29. 28  FOR T = 1 TO 3000: NEXT T: HOME 
  30. 29  PRINT 
  31. 30  PRINT "     THIS PROGRAM WILL AUTOMATICALLY   "
  32. 31  PRINT "NUMBER APPLESOFT STATEMENTS AS THEY ARE"
  33. 32  PRINT "INPUT."
  34. 33  PRINT 
  35. 34  PRINT "     REQUIRES APPLESOFT AND DOS 3.2"
  36. 35  PRINT : PRINT : PRINT 
  37. 36  HTAB 6
  38. 37  INPUT "STARTING LINE NUMBER ?  ";START$
  39. 38  PRINT : PRINT 
  40. 39  PRINT : PRINT : PRINT : PRINT "IS THIS CORRECT?";: GET A$
  41. 40  IF A$ = "N"  THEN  HOME : GOTO 29
  42. 41  HOME : VTAB 6
  43. 42  PRINT "     TYPE 'CTRL X' TO STOP THE AUTO-   "
  44. 43  PRINT "NUMBERING.  THE CURRENT LINE WILL BE   "
  45. 44  PRINT "IGNORED AND THIS ROUTINE RETURNS TO    "
  46. 45  PRINT "APPLESOFT BASIC."
  47. 46  PRINT 
  48. 47  PRINT "     CALL 787 TO RESTART NUMBERING WITH"
  49. 48  PRINT "THE LINE NUMBER WHICH WAS IGNORED WHEN"
  50. 49  PRINT "THE LAST 'CTRL X' WAS TYPED."
  51. 50  VTAB 17
  52. 51  PRINT "PRESS SPACE BAR TO START AUTO NUMBERING":
  53. 52  PRINT "WITH LINE NUMBER ";: INVERSE : PRINT START$;
  54. 53  NORMAL 
  55. 54  POKE  -16368,0: WAIT  -16384,128: WAIT  -16384,1,1
  56. 55  HOME 
  57. 56  FOR L = 1028 TO 1059: READ X: POKE L,X: NEXT L
  58. 57  FOR L = 1152 TO 1191: READ X: POKE L,X: NEXT L
  59. 58  FOR L = 1280 TO 1319: POKE L,159: NEXT L
  60. 59  POKE 34,4: HOME 
  61. 60  FOR L = 770 TO 899: READ X: POKE L,X: NEXT L
  62. 61 M = 898: REM   MEMORY LOCATION FOR START COUNT 
  63. 62  FOR COUNT = 1 TO  LEN(START$)
  64. 63 DIGIT$ =  LEFT$( RIGHT$(START$,COUNT),1)
  65. 64 DIGIT =  VAL(DIGIT$)
  66. 65  POKE M,DIGIT
  67. 66 M = M -1
  68. 67  NEXT COUNT
  69. 68  REM   : $302 TO $384 = LOCATION OF MACHINE CODE PROGRAM
  70. 69  REM 
  71. 70  REM ********************
  72. 71  REM *                  *
  73. 72  REM *  LINE 87 WILL    *
  74. 73  REM *  DELETE ALL THIS *
  75. 74  REM *  MESS SO AS NOT  *
  76. 75  REM *  TO INTERFERE    *
  77. 76  REM *  WITH NEW        *
  78. 77  REM *  PROGRAM         *
  79. 78  REM *                  *
  80. 79  REM ********************
  81. 80  REM 
  82. 81  HOME 
  83. 82  DATA  129,144,144,140,133,157,155,160,160,160,129,144,144,140,133,147,143,134,148,160,160,129,149,148,143,173,142,149,141,130,133,146
  84. 83  DATA  131,148,146,140,160,152,160,148,143,160,147,148,143,144,160,160,160,160,160,160,160,131,129,140,140,160,183,184,183,160,148,143,160,146,133,147,148,129,146,148
  85. 84  DATA 72,138,72,162,5,189,120,3,157,126,3,202,16,247,104,170,104,72,169,33,133,56,169,3,133,57,32,234,3,104,96,72,138,201,6,16,10,104,145,40,189,126,3,24,105,176,96,104,44,0,192,16,251,145,40,173,0,192,44,16,192,72,201,152,208,13
  86. 85  DATA  169,27,133,56,169,253,133,57,32,234,3,104,96,201,141,240,2,104,96,138,72,162,3,254,126,3,189,126,3,201,10,48,8,169,0,157,126,3,202,16,238,144,5,169,1,157,126,3,104,170,104,96,240,240,240,240,0,240,240,240,240,240,0,240
  87. 86  CALL 787